/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / FREENET-STACK / ACRNET22 / !AcornetF_AppLib_freenews

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 66 72 | 65 65 6e 65 77 73 0d 00 |.....>fr|eenews..|
|00000010| 14 21 f4 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |.!. Copy|right 19|
|00000020| 39 36 20 43 6f 6c 69 6e | 20 48 6f 67 62 65 6e 0d |96 Colin| Hogben.|
|00000030| 00 1e 40 f4 20 59 6f 75 | 20 75 73 65 20 74 68 69 |..@. You| use thi|
|00000040| 73 20 63 6f 64 65 20 66 | 6f 72 20 61 6e 79 20 6e |s code f|or any n|
|00000050| 6f 6e 2d 70 72 6f 66 69 | 74 20 70 75 72 70 6f 73 |on-profi|t purpos|
|00000060| 65 2c 20 70 72 6f 76 69 | 64 65 64 20 79 6f 75 0d |e, provi|ded you.|
|00000070| 00 28 3e f4 20 64 6f 63 | 75 6d 65 6e 74 20 61 6e |.(>. doc|ument an|
|00000080| 79 20 63 68 61 6e 67 65 | 73 20 6d 61 64 65 20 61 |y change|s made a|
|00000090| 6e 64 20 61 70 70 6c 79 | 20 74 68 65 20 73 61 6d |nd apply| the sam|
|000000a0| 65 20 63 6f 6e 64 69 74 | 69 6f 6e 73 2e 0d 00 32 |e condit|ions...2|
|000000b0| 04 0d 00 3c 14 dd 20 a4 | 66 72 65 65 6e 65 77 73 |...<.. .|freenews|
|000000c0| 5f 69 6e 69 74 0d 00 46 | 06 3d 30 0d 00 50 04 0d |_init..F|.=0..P..|
|000000d0| 00 5a 29 dd 20 a4 66 72 | 65 65 6e 65 77 73 5f 6d |.Z). .fr|eenews_m|
|000000e0| 65 74 68 6f 64 28 6d 65 | 74 68 6f 64 24 2c 61 72 |ethod(me|thod$,ar|
|000000f0| 67 24 2c 6f 70 74 24 29 | 0d 00 64 10 c8 8e 20 6d |g$,opt$)|..d... m|
|00000100| 65 74 68 6f 64 24 20 ca | 0d 00 6e 28 c9 20 22 63 |ethod$ .|..n(. "c|
|00000110| 6f 6e 66 69 67 22 3a 20 | 3d c3 a4 66 72 65 65 6e |onfig": |=..freen|
|00000120| 65 77 73 5f 63 6f 6e 66 | 69 67 28 61 72 67 24 29 |ews_conf|ig(arg$)|
|00000130| 0d 00 78 10 c9 20 22 75 | 70 67 72 61 64 65 22 3a |..x.. "u|pgrade":|
|00000140| 0d 00 82 20 20 20 f2 75 | 70 67 72 61 64 65 5f 70 |...   .u|pgrade_p|
|00000150| 72 65 63 69 6f 75 73 28 | 22 2e 44 61 74 61 22 29 |recious(|".Data")|
|00000160| 0d 00 8c 21 20 20 3d a4 | 75 70 67 72 61 64 65 5f |...!  =.|upgrade_|
|00000170| 63 6f 70 79 5f 64 69 72 | 28 61 72 67 24 2c 22 22 |copy_dir|(arg$,""|
|00000180| 29 0d 00 96 05 cb 0d 00 | a0 07 3d 22 22 0d 00 aa |).......|..=""...|
|00000190| 04 0d 00 b4 1c dd 20 a4 | 66 72 65 65 6e 65 77 73 |...... .|freenews|
|000001a0| 5f 63 6f 6e 66 69 67 28 | 64 69 72 24 29 0d 00 be |_config(|dir$)...|
|000001b0| 3d ea 20 6c 69 6e 65 24 | 2c 6c 61 73 74 24 2c 74 |=. line$|,last$,t|
|000001c0| 69 6d 65 25 2c 6c 61 67 | 25 2c 64 61 79 61 67 6f |ime%,lag|%,dayago|
|000001d0| 24 2c 69 25 2c 73 24 2c | 6c 6f 77 24 2c 64 25 2c |$,i%,s$,|low$,d%,|
|000001e0| 73 72 63 24 2c 66 69 6c | 65 24 0d 00 c8 28 f2 61 |src$,fil|e$...(.a|
|000001f0| 63 6f 72 6e 65 74 5f 61 | 70 70 28 22 6e 65 77 73 |cornet_a|pp("news|
|00000200| 22 2c 64 69 72 24 2c 22 | 46 72 65 65 4e 65 77 73 |",dir$,"|FreeNews|
|00000210| 22 29 0d 00 d2 25 f4 20 | 65 6e 73 75 72 65 20 4d |")...%. |ensure M|
|00000220| 61 69 6c 24 44 69 72 20 | 6e 6f 74 20 73 65 74 20 |ail$Dir |not set |
|00000230| 6f 72 20 75 73 65 64 0d | 00 dc 1e f2 75 70 64 61 |or used.|....upda|
|00000240| 74 65 5f 6f 70 65 6e 28 | 64 69 72 24 2b 22 2e 21 |te_open(|dir$+".!|
|00000250| 52 75 6e 22 29 0d 00 e6 | 1a c8 95 20 a4 75 70 64 |Run")...|... .upd|
|00000260| 61 74 65 5f 72 65 61 64 | 28 6c 69 6e 65 24 29 0d |ate_read|(line$).|
|00000270| 00 f0 1b 20 20 6c 6f 77 | 24 3d a4 73 74 72 6c 6f |...  low|$=.strlo|
|00000280| 77 65 72 28 6c 69 6e 65 | 24 29 0d 00 fa 40 20 20 |wer(line|$)...@  |
|00000290| e7 20 a7 6c 6f 77 24 2c | 22 73 65 74 20 6d 61 69 |. .low$,|"set mai|
|000002a0| 6c 24 64 69 72 22 29 20 | 80 20 c0 6c 69 6e 65 24 |l$dir") |. .line$|
|000002b0| 2c 31 29 3c 3e 22 7c 22 | 20 8c 20 6c 69 6e 65 24 |,1)<>"|"| . line$|
|000002c0| 3d 22 7c 22 2b 6c 69 6e | 65 24 0d 01 04 86 20 20 |="|"+lin|e$....  |
|000002d0| e7 20 a7 6c 6f 77 24 2c | 22 3c 66 72 65 65 6e 65 |. .low$,|"<freene|
|000002e0| 77 73 24 64 69 72 3e 2e | 21 72 75 6e 69 6d 61 67 |ws$dir>.|!runimag|
|000002f0| 65 22 29 20 80 20 c0 6c | 69 6e 65 24 2c 31 29 3c |e") . .l|ine$,1)<|
|00000300| 3e 22 7c 22 20 8c 20 f2 | 75 70 64 61 74 65 5f 77 |>"|" . .|update_w|
|00000310| 72 69 74 65 73 28 22 52 | 75 6e 20 3c 46 72 65 65 |rites("R|un <Free|
|00000320| 4e 65 77 73 24 44 69 72 | 3e 2e 21 52 75 6e 49 6d |News$Dir|>.!RunIm|
|00000330| 61 67 65 20 25 2a 30 22 | 29 20 8b 20 f2 75 70 64 |age %*0"|) . .upd|
|00000340| 61 74 65 5f 77 72 69 74 | 65 28 6c 69 6e 65 24 29 |ate_writ|e(line$)|
|00000350| 0d 01 0e 05 ce 0d 01 18 | 11 f2 75 70 64 61 74 65 |........|..update|
|00000360| 5f 63 6c 6f 73 65 0d 01 | 22 28 69 25 3d a4 64 6c |_close..|"(i%=.dl|
|00000370| 67 5f 70 6f 6c 6c 3a 20 | e7 20 69 25 3c 3e 64 6c |g_poll: |. i%<>dl|
|00000380| 67 5f 4e 55 4c 4c 20 8c | 20 3d 69 25 3d 31 0d 01 |g_NULL .| =i%=1..|
|00000390| 2c 25 f2 75 70 64 61 74 | 65 5f 6f 70 65 6e 28 64 |,%.updat|e_open(d|
|000003a0| 69 72 24 2b 22 2e 44 61 | 74 61 2e 43 6f 6e 66 69 |ir$+".Da|ta.Confi|
|000003b0| 67 22 29 0d 01 36 1a c8 | 95 20 a4 75 70 64 61 74 |g")..6..|. .updat|
|000003c0| 65 5f 72 65 61 64 28 6c | 69 6e 65 24 29 0d 01 40 |e_read(l|ine$)..@|
|000003d0| 3f 20 20 e7 20 c0 6c 69 | 6e 65 24 2c 38 29 3d 22 |?  . .li|ne$,8)="|
|000003e0| 73 65 72 76 65 72 31 3a | 22 20 6c 69 6e 65 24 3d |server1:|" line$=|
|000003f0| 22 73 65 72 76 65 72 31 | 3a 20 22 2b 6e 65 74 5f |"server1|: "+net_|
|00000400| 6e 6e 74 70 5f 73 65 72 | 76 65 72 24 0d 01 4a 32 |nntp_ser|ver$..J2|
|00000410| 20 20 e7 20 c0 6c 69 6e | 65 24 2c 31 30 29 3d 22 |  . .lin|e$,10)="|
|00000420| 64 61 74 65 5f 74 69 6d | 65 3a 22 20 80 20 6e 65 |date_tim|e:" . ne|
|00000430| 74 5f 66 69 72 73 74 5f | 74 69 6d 65 20 8c 0d 01 |t_first_|time ...|
|00000440| 54 26 20 20 20 20 f4 20 | 47 65 74 20 74 69 6d 65 |T&    . |Get time|
|00000450| 73 74 61 6d 70 20 6f 66 | 20 6f 6e 65 20 64 61 79 |stamp of| one day|
|00000460| 20 61 67 6f 0d 01 5e 2b | 20 20 20 20 74 69 6d 65 | ago..^+|    time|
|00000470| 25 3d a4 6d 61 6c 6c 6f | 63 28 33 32 29 3a 20 6c |%=.mallo|c(32): l|
|00000480| 61 67 25 3d 31 2a 38 36 | 34 30 30 2a 31 30 30 0d |ag%=1*86|400*100.|
|00000490| 01 68 26 20 20 20 20 3f | 74 69 6d 65 25 3d 33 3a |.h&    ?|time%=3:|
|000004a0| 20 c8 99 22 4f 53 5f 57 | 6f 72 64 22 2c 31 34 2c | .."OS_W|ord",14,|
|000004b0| 74 69 6d 65 25 0d 01 72 | 33 20 20 20 20 e7 20 21 |time%..r|3    . !|
|000004c0| 74 69 6d 65 25 3e 3d 30 | 20 80 20 21 74 69 6d 65 |time%>=0| . !time|
|000004d0| 25 3c 6c 61 67 25 20 8c | 20 74 69 6d 65 25 3f 34 |%<lag% .| time%?4|
|000004e0| 3d 74 69 6d 65 25 2d 31 | 0d 01 7c 1a 20 20 20 20 |=time%-1|..|.    |
|000004f0| 21 74 69 6d 65 25 3d 21 | 74 69 6d 65 25 2d 6c 61 |!time%=!|time%-la|
|00000500| 67 25 0d 01 86 48 20 20 | 20 20 c8 99 22 4f 53 5f |g%...H  |  .."OS_|
|00000510| 43 6f 6e 76 65 72 74 44 | 61 74 65 41 6e 64 54 69 |ConvertD|ateAndTi|
|00000520| 6d 65 22 2c 74 69 6d 65 | 25 2c 74 69 6d 65 25 2b |me",time|%,time%+|
|00000530| 38 2c 32 34 2c 22 25 59 | 52 25 4d 4e 25 44 59 20 |8,24,"%Y|R%MN%DY |
|00000540| 25 32 34 25 4d 49 25 53 | 45 22 0d 01 90 41 20 20 |%24%MI%S|E"...A  |
|00000550| 20 20 74 69 6d 65 25 3f | 32 31 3d 31 33 3a 20 6c |  time%?|21=13: l|
|00000560| 69 6e 65 24 3d 22 64 61 | 74 65 5f 74 69 6d 65 3a |ine$="da|te_time:|
|00000570| 20 22 2b 24 28 74 69 6d | 65 25 2b 38 29 3a 20 f2 | "+$(tim|e%+8): .|
|00000580| 66 72 65 65 28 74 69 6d | 65 25 29 0d 01 9a 07 20 |free(tim|e%).... |
|00000590| 20 cd 0d 01 a4 1a 20 20 | f2 75 70 64 61 74 65 5f | .....  |.update_|
|000005a0| 77 72 69 74 65 28 6c 69 | 6e 65 24 29 0d 01 ae 05 |write(li|ne$)....|
|000005b0| ce 0d 01 b8 11 f2 75 70 | 64 61 74 65 5f 63 6c 6f |......up|date_clo|
|000005c0| 73 65 0d 01 c2 50 e7 20 | 6e 65 74 5f 66 69 72 73 |se...P. |net_firs|
|000005d0| 74 5f 74 69 6d 65 20 f2 | 66 69 6c 65 5f 63 6f 70 |t_time .|file_cop|
|000005e0| 79 28 6e 65 74 5f 72 65 | 73 70 61 74 68 24 2b 22 |y(net_re|spath$+"|
|000005f0| 41 6c 6c 47 72 6f 75 70 | 73 22 2c 64 69 72 24 2b |AllGroup|s",dir$+|
|00000600| 22 2e 44 61 74 61 2e 41 | 6c 6c 47 72 6f 75 70 73 |".Data.A|llGroups|
|00000610| 22 29 0d 01 cc 2c e7 20 | 6e 65 74 5f 6e 65 77 73 |")...,. |net_news|
|00000620| 5f 67 72 6f 75 70 73 24 | 3e 22 22 20 80 20 6e 65 |_groups$|>"" . ne|
|00000630| 74 5f 66 69 72 73 74 5f | 74 69 6d 65 20 8c 0d 01 |t_first_|time ...|
|00000640| d6 29 20 f2 75 70 64 61 | 74 65 5f 6f 70 65 6e 28 |.) .upda|te_open(|
|00000650| 64 69 72 24 2b 22 2e 44 | 61 74 61 2e 41 6c 6c 47 |dir$+".D|ata.AllG|
|00000660| 72 6f 75 70 73 22 29 0d | 01 e0 0f 20 6e 6f 61 64 |roups").|... noad|
|00000670| 64 24 3d 22 2c 22 0d 01 | ea 1b 20 c8 95 20 a4 75 |d$=","..|.. .. .u|
|00000680| 70 64 61 74 65 5f 72 65 | 61 64 28 6c 69 6e 65 24 |pdate_re|ad(line$|
|00000690| 29 0d 01 f4 1f 20 20 20 | 67 72 24 3d c0 6c 69 6e |)....   |gr$=.lin|
|000006a0| 65 24 2c a7 6c 69 6e 65 | 24 2c bd 39 29 2d 31 29 |e$,.line|$,.9)-1)|
|000006b0| 0d 01 fe 41 20 20 20 e7 | 20 a7 22 2c 22 2b 6e 65 |...A   .| .","+ne|
|000006c0| 74 5f 6e 65 77 73 5f 67 | 72 6f 75 70 73 24 2b 22 |t_news_g|roups$+"|
|000006d0| 2c 22 2c 22 2c 22 2b 67 | 72 24 2b 22 2c 22 29 3e |,",","+g|r$+",")>|
|000006e0| 30 20 6e 6f 61 64 64 24 | 2b 3d 67 72 24 2b 22 2c |0 noadd$|+=gr$+",|
|000006f0| 22 0d 02 08 1b 20 20 20 | f2 75 70 64 61 74 65 5f |"....   |.update_|
|00000700| 77 72 69 74 65 28 6c 69 | 6e 65 24 29 0d 02 12 06 |write(li|ne$)....|
|00000710| 20 ce 0d 02 1c 1c 20 61 | 6c 6c 67 72 24 3d 6e 65 | ..... a|llgr$=ne|
|00000720| 74 5f 6e 65 77 73 5f 67 | 72 6f 75 70 73 24 0d 02 |t_news_g|roups$..|
|00000730| 26 11 20 c8 95 20 61 6c | 6c 67 72 24 3e 22 22 0d |&. .. al|lgr$>"".|
|00000740| 02 30 1e 20 20 20 67 72 | 24 3d a4 73 74 72 74 6f |.0.   gr|$=.strto|
|00000750| 6b 28 61 6c 6c 67 72 24 | 2c 22 2c 22 29 0d 02 3a |k(allgr$|,",")..:|
|00000760| 39 20 20 20 e7 20 a7 6e | 6f 61 64 64 24 2c 22 2c |9   . .n|oadd$,",|
|00000770| 22 2b 67 72 24 2b 22 2c | 22 29 3d 30 20 f2 75 70 |"+gr$+",|")=0 .up|
|00000780| 64 61 74 65 5f 77 72 69 | 74 65 28 67 72 24 2b bd |date_wri|te(gr$+.|
|00000790| 39 2b 22 31 22 29 0d 02 | 44 06 20 ce 0d 02 4e 12 |9+"1")..|D. ...N.|
|000007a0| 20 f2 75 70 64 61 74 65 | 5f 63 6c 6f 73 65 0d 02 | .update|_close..|
|000007b0| 58 05 cd 0d 02 62 28 69 | 25 3d a4 64 6c 67 5f 70 |X....b(i|%=.dlg_p|
|000007c0| 6f 6c 6c 3a 20 e7 20 69 | 25 3c 3e 64 6c 67 5f 4e |oll: . i|%<>dlg_N|
|000007d0| 55 4c 4c 20 8c 20 3d 69 | 25 3d 31 0d 02 6c 3f f4 |ULL . =i|%=1..l?.|
|000007e0| 20 52 65 70 6c 61 63 65 | 6d 65 6e 74 20 6d 6b 67 | Replace|ment mkg|
|000007f0| 72 6f 75 70 73 20 61 6e | 64 20 71 6e 65 77 73 20 |roups an|d qnews |
|00000800| 66 6f 72 20 6f 6e 65 73 | 20 69 6e 20 4e 65 77 73 |for ones| in News|
|00000810| 62 61 73 65 20 30 2e 35 | 35 63 0d 02 76 5b f2 66 |base 0.5|5c..v[.f|
|00000820| 69 6c 65 5f 63 6f 70 79 | 5f 6e 65 77 65 72 28 6e |ile_copy|_newer(n|
|00000830| 65 74 5f 72 65 73 70 61 | 74 68 24 2b 22 6d 6b 67 |et_respa|th$+"mkg|
|00000840| 72 6f 75 70 73 22 2c 6e | 65 77 73 62 61 73 65 5f |roups",n|ewsbase_|
|00000850| 64 69 72 24 2b 22 2e 54 | 72 61 6e 73 70 6f 72 74 |dir$+".T|ransport|
|00000860| 73 2e 66 72 65 65 6e 65 | 77 73 2e 6d 6b 67 72 6f |s.freene|ws.mkgro|
|00000870| 75 70 73 22 29 0d 02 80 | 49 f2 66 69 6c 65 5f 63 |ups")...|I.file_c|
|00000880| 6f 70 79 5f 6e 65 77 65 | 72 28 6e 65 74 5f 72 65 |opy_newe|r(net_re|
|00000890| 73 70 61 74 68 24 2b 22 | 71 6e 65 77 73 22 2c 6e |spath$+"|qnews",n|
|000008a0| 65 77 73 62 61 73 65 5f | 64 69 72 24 2b 22 2e 53 |ewsbase_|dir$+".S|
|000008b0| 75 70 70 6f 72 74 2e 71 | 6e 65 77 73 22 29 0d 02 |upport.q|news")..|
|000008c0| 8a 30 6e 66 24 3d 6e 65 | 77 73 64 69 72 5f 64 69 |.0nf$=ne|wsdir_di|
|000008d0| 72 24 2b 22 2e 6e 65 77 | 73 62 61 73 65 2e 63 6f |r$+".new|sbase.co|
|000008e0| 6e 66 69 67 2e 46 72 65 | 65 4e 65 77 73 22 0d 02 |nfig.Fre|eNews"..|
|000008f0| 94 0e f2 63 64 69 72 28 | 6e 66 24 29 0d 02 9e 16 |...cdir(|nf$)....|
|00000900| 6e 66 67 24 3d 6e 66 24 | 2b 22 2e 67 72 6f 75 70 |nfg$=nf$|+".group|
|00000910| 73 22 0d 02 a8 40 e7 20 | ac 20 a4 66 69 6c 65 5f |s"...@. |. .file_|
|00000920| 65 78 69 73 74 73 28 6e | 66 67 24 29 20 f2 66 69 |exists(n|fg$) .fi|
|00000930| 6c 65 5f 63 6f 70 79 28 | 6e 65 74 5f 72 65 73 70 |le_copy(|net_resp|
|00000940| 61 74 68 24 2b 22 65 6d | 70 74 79 22 2c 6e 66 67 |ath$+"em|pty",nfg|
|00000950| 24 29 0d 02 b2 35 f2 6e | 65 77 73 62 61 73 65 5f |$)...5.n|ewsbase_|
|00000960| 63 6d 64 28 22 74 72 61 | 6e 73 70 6f 72 74 20 73 |cmd("tra|nsport s|
|00000970| 6f 75 72 63 65 20 6e 65 | 77 73 20 66 72 65 65 6e |ource ne|ws freen|
|00000980| 65 77 73 20 31 22 29 0d | 02 bc 34 f2 6e 65 77 73 |ews 1").|..4.news|
|00000990| 62 61 73 65 5f 63 6d 64 | 28 22 74 72 61 6e 73 70 |base_cmd|("transp|
|000009a0| 6f 72 74 20 72 6f 75 74 | 65 20 6e 65 77 73 20 66 |ort rout|e news f|
|000009b0| 72 65 65 6e 65 77 73 20 | 31 22 29 0d 02 c6 36 f2 |reenews |1")...6.|
|000009c0| 6e 65 77 73 62 61 73 65 | 5f 63 6d 64 28 22 74 72 |newsbase|_cmd("tr|
|000009d0| 61 6e 73 70 6f 72 74 20 | 64 65 66 61 75 6c 74 20 |ansport |default |
|000009e0| 73 6f 75 72 63 65 20 66 | 72 65 65 6e 65 77 73 22 |source f|reenews"|
|000009f0| 29 0d 02 d0 34 f2 6e 65 | 77 73 62 61 73 65 5f 63 |)...4.ne|wsbase_c|
|00000a00| 6d 64 28 22 74 72 61 6e | 73 70 6f 72 74 20 64 65 |md("tran|sport de|
|00000a10| 66 61 75 6c 74 20 6e 65 | 77 73 20 66 72 65 65 6e |fault ne|ws freen|
|00000a20| 65 77 73 22 29 0d 02 da | 46 f2 6e 65 77 73 62 61 |ews")...|F.newsba|
|00000a30| 73 65 5f 63 6d 64 28 22 | 74 72 61 6e 73 70 6f 72 |se_cmd("|transpor|
|00000a40| 74 20 67 61 74 65 77 61 | 79 20 6e 65 77 73 20 66 |t gatewa|y news f|
|00000a50| 72 65 65 6e 65 77 73 20 | 22 2b 6e 65 74 5f 6e 6e |reenews |"+net_nn|
|00000a60| 74 70 5f 73 65 72 76 65 | 72 24 29 0d 02 e4 40 f4 |tp_serve|r$)...@.|
|00000a70| 20 43 6f 70 79 20 61 6e | 79 20 70 65 6e 64 69 6e | Copy an|y pendin|
|00000a80| 67 20 70 72 65 2d 41 63 | 6f 72 6e 65 74 30 2e 31 |g pre-Ac|ornet0.1|
|00000a90| 34 20 70 6f 73 74 73 20 | 69 6e 74 6f 20 74 68 65 |4 posts |into the|
|00000aa0| 69 72 20 6e 65 77 20 68 | 6f 6d 65 0d 02 ee 32 e7 |ir new h|ome...2.|
|00000ab0| 20 a4 66 69 6c 65 5f 65 | 78 69 73 74 73 28 66 72 | .file_e|xists(fr|
|00000ac0| 65 65 75 73 65 72 5f 64 | 69 72 24 2b 22 2e 46 69 |eeuser_d|ir$+".Fi|
|00000ad0| 6c 65 73 2e 73 70 6f 6f | 6c 22 29 20 8c 0d 02 f8 |les.spoo|l") ....|
|00000ae0| 2a 20 20 69 25 3d a4 64 | 6c 67 5f 70 6f 6c 6c 3a |*  i%=.d|lg_poll:|
|00000af0| 20 e7 20 69 25 3c 3e 64 | 6c 67 5f 4e 55 4c 4c 20 | . i%<>d|lg_NULL |
|00000b00| 8c 20 3d 69 25 3d 31 0d | 03 02 15 20 20 f2 6c 69 |. =i%=1.|...  .li|
|00000b10| 62 72 61 72 79 28 22 64 | 69 72 22 29 0d 03 0c 3a |brary("d|ir")...:|
|00000b20| 20 20 73 72 63 24 3d 66 | 72 65 65 75 73 65 72 5f |  src$=f|reeuser_|
|00000b30| 64 69 72 24 2b 22 2e 46 | 69 6c 65 73 2e 73 70 6f |dir$+".F|iles.spo|
|00000b40| 6f 6c 2e 6e 65 77 73 71 | 75 65 75 65 2e 61 72 74 |ol.newsq|ueue.art|
|00000b50| 69 63 6c 65 73 22 0d 03 | 16 2a 20 20 f2 75 70 64 |icles"..|.*  .upd|
|00000b60| 61 74 65 5f 6f 70 65 6e | 28 64 69 72 24 2b 22 2e |ate_open|(dir$+".|
|00000b70| 44 61 74 61 2e 50 6f 73 | 74 49 6e 64 65 78 22 29 |Data.Pos|tIndex")|
|00000b80| 0d 03 20 1c 20 20 c8 95 | 20 a4 75 70 64 61 74 65 |.. .  ..| .update|
|00000b90| 5f 72 65 61 64 28 6c 69 | 6e 65 24 29 0d 03 2a 47 |_read(li|ne$)..*G|
|00000ba0| 20 20 20 20 e7 20 c0 a4 | 73 74 72 6c 6f 77 65 72 |    . ..|strlower|
|00000bb0| 28 6c 69 6e 65 24 29 2c | 33 35 29 3d 22 3c 6d 61 |(line$),|35)="<ma|
|00000bc0| 69 6c 24 64 69 72 3e 2e | 73 70 6f 6f 6c 2e 6e 65 |il$dir>.|spool.ne|
|00000bd0| 77 73 71 75 65 75 65 2e | 61 72 74 69 63 6c 65 73 |wsqueue.|articles|
|00000be0| 22 20 8c 0d 03 34 1a 20 | 20 20 20 20 20 66 69 6c |" ...4. |     fil|
|00000bf0| 65 24 3d c1 6c 69 6e 65 | 24 2c 33 37 29 0d 03 3e |e$=.line|$,37)..>|
|00000c00| 2a 20 20 20 20 20 20 e7 | 20 a4 66 69 6c 65 5f 65 |*      .| .file_e|
|00000c10| 78 69 73 74 73 28 73 72 | 63 24 2b 22 2e 22 2b 66 |xists(sr|c$+"."+f|
|00000c20| 69 6c 65 24 29 20 8c 0d | 03 48 43 20 20 20 20 20 |ile$) ..|.HC     |
|00000c30| 20 20 20 f2 66 69 6c 65 | 5f 63 6f 70 79 28 73 72 |   .file|_copy(sr|
|00000c40| 63 24 2b 22 2e 22 2b 66 | 69 6c 65 24 2c 64 69 72 |c$+"."+f|ile$,dir|
|00000c50| 24 2b 22 2e 44 61 74 61 | 2e 41 72 74 69 63 6c 65 |$+".Data|.Article|
|00000c60| 73 2e 22 2b 66 69 6c 65 | 24 29 0d 03 52 48 20 20 |s."+file|$)..RH  |
|00000c70| 20 20 20 20 20 20 f2 66 | 69 6c 65 5f 63 6f 70 79 |      .f|ile_copy|
|00000c80| 28 73 72 63 24 2b 22 2e | 22 2b 66 69 6c 65 24 2c |(src$+".|"+file$,|
|00000c90| 64 69 72 24 2b 22 2e 44 | 61 74 61 2e 62 61 64 6d |dir$+".D|ata.badm|
|00000ca0| 61 72 6b 65 72 2e 22 2b | 66 69 6c 65 24 29 20 20 |arker."+|file$)  |
|00000cb0| 20 20 0d 03 5c 28 20 20 | 20 20 20 20 20 20 f2 66 |  ..\(  |      .f|
|00000cc0| 69 6c 65 5f 72 65 6d 6f | 76 65 28 73 72 63 24 2b |ile_remo|ve(src$+|
|00000cd0| 22 2e 22 2b 66 69 6c 65 | 24 29 0d 03 66 40 20 20 |"."+file|$)..f@  |
|00000ce0| 20 20 20 20 20 20 f2 75 | 70 64 61 74 65 5f 77 72 |      .u|pdate_wr|
|00000cf0| 69 74 65 28 22 3c 46 72 | 65 65 4e 65 77 73 24 44 |ite("<Fr|eeNews$D|
|00000d00| 69 72 3e 2e 44 61 74 61 | 2e 41 72 74 69 63 6c 65 |ir>.Data|.Article|
|00000d10| 73 2e 22 2b 66 69 6c 65 | 24 29 0d 03 70 0b 20 20 |s."+file|$)..p.  |
|00000d20| 20 20 20 20 cd 0d 03 7a | 09 20 20 20 20 cc 0d 03 |    ...z|.    ...|
|00000d30| 84 1e 20 20 20 20 20 20 | f2 75 70 64 61 74 65 5f |..      |.update_|
|00000d40| 77 72 69 74 65 28 6c 69 | 6e 65 24 29 0d 03 8e 09 |write(li|ne$)....|
|00000d50| 20 20 20 20 cd 0d 03 98 | 07 20 20 ce 0d 03 a2 18 |    ....|.  .....|
|00000d60| 20 20 64 25 3d a4 64 69 | 72 5f 6f 70 65 6e 28 73 |  d%=.di|r_open(s|
|00000d70| 72 63 24 29 0d 03 ac 1c | 20 20 c8 95 20 a4 64 69 |rc$)....|  .. .di|
|00000d80| 72 5f 72 65 61 64 28 64 | 25 2c 66 69 6c 65 24 29 |r_read(d|%,file$)|
|00000d90| 0d 03 b6 3f 20 20 20 20 | f2 66 69 6c 65 5f 63 6f |...?    |.file_co|
|00000da0| 70 79 28 73 72 63 24 2b | 22 2e 22 2b 66 69 6c 65 |py(src$+|"."+file|
|00000db0| 24 2c 64 69 72 24 2b 22 | 2e 44 61 74 61 2e 41 72 |$,dir$+"|.Data.Ar|
|00000dc0| 74 69 63 6c 65 73 2e 22 | 2b 66 69 6c 65 24 29 0d |ticles."|+file$).|
|00000dd0| 03 c0 40 20 20 20 20 f2 | 66 69 6c 65 5f 63 6f 70 |..@    .|file_cop|
|00000de0| 79 28 73 72 63 24 2b 22 | 2e 22 2b 66 69 6c 65 24 |y(src$+"|."+file$|
|00000df0| 2c 64 69 72 24 2b 22 2e | 44 61 74 61 2e 62 61 64 |,dir$+".|Data.bad|
|00000e00| 6d 61 72 6b 65 72 2e 22 | 2b 66 69 6c 65 24 29 0d |marker."|+file$).|
|00000e10| 03 ca 3c 20 20 20 20 f2 | 75 70 64 61 74 65 5f 77 |..<    .|update_w|
|00000e20| 72 69 74 65 28 22 3c 46 | 72 65 65 4e 65 77 73 24 |rite("<F|reeNews$|
|00000e30| 44 69 72 3e 2e 44 61 74 | 61 2e 41 72 74 69 63 6c |Dir>.Dat|a.Articl|
|00000e40| 65 73 2e 22 2b 66 69 6c | 65 24 29 0d 03 d4 07 20 |es."+fil|e$).... |
|00000e50| 20 ce 0d 03 de 14 20 20 | f2 64 69 72 5f 63 6c 6f | .....  |.dir_clo|
|00000e60| 73 65 28 64 25 29 0d 03 | e8 13 20 20 f2 75 70 64 |se(d%)..|..  .upd|
|00000e70| 61 74 65 5f 63 6c 6f 73 | 65 0d 03 f2 30 20 20 f2 |ate_clos|e...0  .|
|00000e80| 66 69 6c 65 5f 72 65 6d | 6f 76 65 28 66 72 65 65 |file_rem|ove(free|
|00000e90| 75 73 65 72 5f 64 69 72 | 24 2b 22 2e 46 69 6c 65 |user_dir|$+".File|
|00000ea0| 73 2e 73 70 6f 6f 6c 22 | 29 0d 03 fc 05 cd 0d 04 |s.spool"|).......|
|00000eb0| 06 06 3d 31 0d ff       |                         |..=1..  |        |
+--------+-------------------------+-------------------------+--------+--------+